home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / datenbanken / magicadreßmanageriii / arexx / dfa-konvert.rexx < prev    next >
OS/2 REXX Batch file  |  1995-03-09  |  885b  |  37 lines
  1. /* Konvertiere DFA-Datenbasis */
  2. /* Autor: Martin Steigerwald  */
  3.  
  4. OPTIONS RESULTS
  5.  
  6. address 'DFA'
  7.  
  8. FIRST STEM tmp.
  9.  
  10. exit=3D0
  11.  
  12. DO WHILE exit=3D0
  13.   address 'MAM.1'
  14.  
  15.   APPENDNEW
  16.  
  17.   SETDATA ANREDE     '"'||tmp.ADDRESS.0||'"'
  18.   SETDATA NAME       '"'||tmp.ADDRESS.2||'"'
  19.   SETDATA VORNAME    '"'||tmp.ADDRESS.1||'"'
  20.   SETDATA STRASSE    '"'||tmp.ADDRESS.4||'"'
  21.   /* SETDATA FIRMA      '"'||tmp.COMPANY||'"' */
  22.   SETDATA PLZ        '"'||tmp.ADDRESS.5||'"'
  23.   SETDATA ORT        '"'||tmp.ADDRESS.6||'"'
  24.   SETDATA LAND       '"'||tmp.ADDRESS.8||'"'
  25.   SETDATA GEBURTSTAG '"'||tmp.ADDRESS.9||'"'
  26.   SETDATA TEL        '"'||tmp.ADDRESS.10||'"'
  27.   SETDATA FAX        '"'||tmp.ADDRESS.11||'"'
  28.   SETDATA EMAIL1     '"'||tmp.ADDRESS.12||'"'
  29.   SETDATA EMAIL2     '"'||tmp.ADDRESS.13||'"'
  30.   SETDATA KOMMENTAR  '"'||tmp.ADDRESS.15||'"'
  31.  
  32.   address 'DFA'
  33.  
  34.   NEXT STEM tmp.
  35.   IF RC2 =3D 20 THEN exit=3D1
  36. end
  37.